home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / phildov20.exe / wavloadr.txt < prev    next >
Encoding:
Text File  |  1997-02-10  |  2.2 KB  |  60 lines
  1. This Is A Great Wave Loader That Counts The Amounts Of Waves, And Midis You 
  2. Have Then Selects 1 At Random! The Main Feature In A Wave Loader Is Missing
  3. Here! That's Right! Gone! I threw It Out! There Is No random.txt File Needed
  4. Anymore!
  5.  
  6. Just Stick These Three Lines In Popups Under The Channel Section:
  7. [POPUPS/CHANNEL]
  8. WavLoader
  9. .ON:/timer85 0 300 /f1
  10. .OFF:/timer85 off
  11.  
  12. And Stick These Lines In Aliases!
  13. [Aliases]
  14. /f1 {
  15.   set %rf $rand(1,2)
  16.   if %rf = 1 { set %rf *.wav | set %tfs $findfile($wavedir,%rf,*) | set %1 $rand(1,%tfs) }
  17.   else { set %rf *.mid | set %tfs $findfile($wavedir,%rf,*) | set %1 $rand(1,%tfs) }
  18.   set %2 $findfile($wavedir,%rf,%1)
  19.   set %wavsize $lof(%2)
  20.   sound # %2 To Get This Type ! $+ $me $nopath(%2)  
  21.   me Text Free WavLoader Created by CoolMoFo!
  22.   halt
  23. }
  24.  
  25. This section is to auto send waves when someone requests it.. I made it to 
  26. also send ascii art if someone sees 1 that they like they can get it as well!
  27. The only thing you need to do is put this in events and type this somewhere:
  28. /set %textdir c:\mirc\text\ 
  29. or the directory where you have all your txt files located!
  30.  
  31. [EVENTS]
  32. 1:on text:!*:*: {
  33.   if ( $parm1 == ! $+ $me ) goto start
  34.   halt
  35.   :start
  36.   if $right(3,$parm2) == wav || $right(3,$parm2) == mid { set %findfil $findfile($wavedir,$parm2,1) } 
  37.   if $right(3,$parm2) == txt set %findfil $findfile(%textdir,$parm2,1) 
  38.   if %findfil == $null { goto donthave }
  39.   else goto filesnd
  40.   halt
  41.   :filesnd
  42.   dcc send $nick %findfil
  43.   inc %filesent +1 
  44.   notice $nick Here comes $parm2 $+ .. %filesent files sent since 1/10/97!
  45.   notice $nick Auto Sender created by CoolMoFo!
  46.   halt
  47.   :donthave
  48.   notice $nick Sorry $nick $+ ! Unable to locate file $parm2 $+ ! Check your Spelling and try again!
  49.   halt
  50. }
  51.  
  52. Thats All there Is To It!
  53.  
  54. Me And The Rest Of My Possi Can Be Found In #MircsHelp On DalNet!
  55. More Great Scripts To Come!
  56.            ___   ___   ___                ___   ____  ___
  57.           /     /   \ /   \ |     |\  /| /   \ |     /   \  ||
  58.           |     |   | |   | |     | \/ | |   | |___  |   |  ||
  59.           |     |   | |   | |     |    | |   | |     |   |  ||
  60.           \___  \___/ \___/ |___  |    | \___/ |     \___/  ..